home *** CD-ROM | disk | FTP | other *** search
/ Webshot XL / WEBSHOP_XL.ISO / WebShop XL / data1.cab / Examples / Web_Examples / AppForms / WebSite / CGI-BIN / CGI4.pl < prev    next >
Text File  |  2001-09-05  |  15KB  |  467 lines
  1. $cginame = "CGI4";
  2. $cgifolder = "";
  3. $pageURL = "../index.htm";
  4. $cgiurl = "\""."$cgifolder"."$cginame".".pl"."\"";
  5. $template = "Template1";
  6. ###############################################################
  7. #             1.Environmental prefix                          #
  8. ###############################################################
  9. #                  *-OS platform -*                           #
  10. $osplat = "Win32";
  11. #             *-DB connectivity platform-*                    #
  12. $dbplat = "ODBC";
  13. ###############################################################
  14. #             2.Section of datasource properies               #
  15. ###############################################################
  16. $dbname = "ADDBOOK";
  17. ###############################################################
  18. #              3.Section of columns                           #
  19. ###############################################################
  20. $command = SELECT;
  21. @columns = ( 'FullName','Country','City','Address','EmailAddress','TuitionPlan','Date');
  22. @captions = ( 'Name','Country','City','Address','Email Address','Tuition Plan','Visit date');
  23. @columntype = ( 'NONE','NONE','NONE','NONE','MAIL','NONE','DATE_0');
  24. ###############################################################
  25. #              4.Section of controls                          #
  26. ###############################################################
  27. @controls = ();
  28. @controlvalues = ();
  29. &get_control_values(@controls);
  30. ###############################################################
  31. #        5.Section of script body where    generated SQL      #
  32. #       statement template is to be placed with appropriate   #
  33. #                        insertions                           #
  34. ###############################################################
  35. $stmt0 = "SELECT Addresses.FullName,Addresses.Country,Addresses.City,Addresses.Address,Addresses.EmailAddress,Addresses.TuitionPlan,Addresses.Date\n
  36.  FROM Addresses\n
  37. ORDER BY  Date ASC";
  38.    ###############################################################
  39.    #              6.Section of feedback properies                #
  40.    ###############################################################
  41. @colors = ("d3d3d3","ffffff");
  42. $quota = 3;
  43. $style = 1;#0-List,1-Table
  44. $border = 1;
  45. $link = 0;#0-Link,1-Embed
  46. $head1 = "GuestBook Visitors List";  #first line
  47. $head2 = "";  #second line
  48. $align = "center";
  49. ##################### End of prefix ###########################
  50.  
  51. #$test = FALSE;
  52. #####################Standard remainder of the script##########
  53. $useplatstr = "use "."$osplat"."::"."$dbplat";
  54. eval $useplatstr;
  55. use CGI ':standard';
  56. $header = "Header";
  57.  
  58. #################################################################
  59. #        7.Section of script body responsible                   #
  60. #             for input from stdio                              #
  61. #        and output to stdio footer's lines                     #
  62. #################################################################
  63. print header;
  64. #print   "<center><U><B><FONT SIZE=\"+5\">SQL TEST</FONT></B></U><center>";
  65. if (param()) {
  66.  }
  67.  
  68. #################################################################
  69. #        8.Section of script body responsible                   #
  70. #           for placing controls' values                        #
  71. #      in appropriate places in "controlvalues" array           #
  72. #      and placing received cursor in $cursor variable          #
  73. #################################################################
  74. $cursor = param('Cursor');
  75.  
  76. #################################################################
  77. #        9.Section of script body responsible                   #
  78. #           for placing controls' values                        #
  79. #      in appropriate places in "controlvalues" array           #
  80. #      and placing received cursor in $cursor variable          #
  81. #################################################################
  82. if($test){
  83. print '<FORM ACTION=';
  84. print $cgiurl;
  85. print 'METHOD=POST>';
  86. $colindex = 0;
  87. foreach $control (@controls){
  88.  print '<CENTER>';
  89.  $temp = $controls[$colindex];
  90.  print $temp ;
  91.  print '</CENTER><BR>';    
  92.  print '<CENTER>';
  93.  print '<INPUT TYPE="text" NAME="';
  94.  print $control;
  95.  print '"';
  96.  print ' VALUE="';
  97.  $temp = $controlvalues[$colindex];
  98.  print $temp;
  99.  print '" >';
  100.  print '</CENTER>';    
  101.  print '<BR >';
  102.  $colindex = $colindex + 1;
  103. }
  104. if($colindex){
  105. print '<BR><BR>';
  106. print '<CENTER>';
  107. print '<INPUT TYPE="Submit" NAME="submit"';
  108. print '</CENTER>';
  109. print '</FORM>';
  110. }
  111. }
  112.  
  113. #################################################################
  114. #        10.Section of script body where    generated SQL        #
  115. #statement template is to be placed with appropriate insertions #
  116. #     and   responsible  for getting  final sight  of SQL       #
  117. ################################################################# 
  118. $stmtval = "\$stmt"."= \""."$stmt0"."\"";
  119. eval  $stmtval;
  120.  
  121. #################################################################
  122. #             11.Section of script body                          #
  123. #     responsible  for making connection to DBASE and           #
  124. #         getting count of rows                                 #
  125. ################################################################# 
  126. $plat = "\$db"." = "."new "."$osplat"."::"."$dbplat"."("."$dbname".")";
  127. eval $plat;
  128. if (!$db){
  129.  &print_db_error;
  130.  return;
  131. }
  132. $lor = $db->Sql($stmt);
  133. if ($lor){
  134.  &print_sql_error;
  135.  return;
  136. }
  137. $rowtotal = &get_total_rows;
  138.  
  139. #################################################################
  140. #             12.Section of script body                         #
  141. #        responsible  for output "Query results" line           #
  142. #             along with total count of rows                    #
  143. #################################################################
  144. #### only for debugging purpose
  145. if($test){
  146. print $stmtval,p;
  147. }
  148. print   "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=100%><TR VALIGN=\"top\" ALIGN=\"center\" bgcolor=\"#aaaacc\">";
  149. print   "<TD COLSPAN=2><H1> $head1</H1></TD></TR>";
  150. print   "<TR VALIGN=\"top\" ALIGN=\"center\" bgcolor=\"#aaaacc\">";
  151. print   "<TD COLSPAN=2><H1>$head2</H1></TD></TR>";
  152. print   "</TABLE>";
  153. print   "<center><U><B>QUERY RESULTS - $rowtotal matches</B></U><center>";
  154. print   "<BR><BR>";
  155.  
  156. #################################################################
  157. #             13.Section of script body                         #
  158. #        responsible  for calculation range of                  #
  159. #              query portion for feedback page                  #
  160. #################################################################
  161. $start = $cursor;
  162. $end = $cursor + $quota;
  163. if($end >= $rowtotal){
  164. $end = $rowtotal;
  165. $cursornext = 0;
  166. }
  167. else
  168. {
  169.  $cursornext = $cursor + $quota;
  170. } 
  171. $cursorprev = $cursor - $quota;
  172.  
  173. #################################################################
  174. #             14.Section of script body                         #
  175. #        responsible  for calculation range of                  #
  176. #                   query portion                               #
  177. #           output them in outgoing stream                      #
  178. #################################################################
  179. &print_range_line($rowtotal,$start,$end);
  180.  
  181. #################################################################
  182. #             15.Section of script body                         #
  183. #        responsible  for output of table captions              #
  184. #            for query columns on feedback page                 #
  185. #################################################################
  186.  print   "<TABLE BORDER=$border CELLSPACING=0 CELLPADDING=0 WIDTH=100%><TR VALIGN=\"top\" ALIGN=\"$align\" bgcolor=\"#aaaacc\">";
  187.  $capindex = 0;
  188.  @fieldnames = $db->FieldNames();
  189.  foreach $caption (@captions){
  190.  if($caption eq ""){
  191.   &print_header_cell($fieldnames[$capindex]);
  192.  } else{
  193.   &print_header_cell($captions[$capindex]);
  194.  }$capindex = $capindex + 1;
  195.  }
  196.  
  197. #################################################################
  198. #             16.Section of script body                         #
  199. #        responsible  for fetching rows from DBASE              #
  200. #            and placing values in the cells of table           #
  201. #################################################################
  202. $lor = $db->Sql($stmt);
  203. $j=0;
  204. while($db->FetchRow()){
  205.  if($j < $start ){
  206.   $j++;
  207.   next;
  208.  }
  209.  if($j >= $end ){
  210.  last;
  211.  }
  212.  undef %hash;
  213.  %hash = $db->DataHash;
  214.  $bgcolor = $colors[$j%2];
  215.  print "<TR VALIGN=\"top\" ALIGN=\"$align\" bgcolor=\"$bgcolor\">";
  216.  $i=0;
  217.  foreach $column (@columns){
  218.   if($columntype[$i] EQ "NONE"){
  219.    &print_cell($hash{$column});
  220.   }
  221.   else{
  222.     $_=$columntype[$i];
  223.    if($columntype[$i] EQ "URL"){
  224.     &print_url_cell($hash{$column});
  225.    }
  226.    if($columntype[$i] EQ "MAIL"){
  227.     &print_mail_cell($hash{$column});
  228.    }
  229.    if($columntype[$i] EQ "IMAGE"){
  230.     &print_image_cell($hash{$column});
  231.    }
  232.     if($columntype[$i] EQ "BOOL"){
  233.     &print_bool_cell($hash{$column});
  234.    }
  235.    if(/^DATE_(\d+)$/){
  236.    $datform=$1;
  237.    &print_date_cell($hash{$column},$datform);
  238.    }
  239.    if($columntype[$i] EQ "TIME"){
  240.    &print_time_cell($hash{$column});
  241.    }
  242.   }
  243.   $i = $i + 1;
  244.  }
  245.  $j = $j + 1;    
  246. }
  247. print "</TABLE>";
  248. print   "<BR>";
  249. print   "<BR>";
  250. #### end of session ##########
  251. $db->Close();
  252.  
  253. #################################################################
  254. #             17.Section of script body   (NEXT)                #
  255. #        responsible  for generation and placing in             #
  256. #            output stream the form tags as invisible           # 
  257. #     fields for getting query information from feedback page   #
  258. #################################################################
  259. #if it is needed to place NEXT button
  260. if($cursornext > 0){
  261.  print '<FORM ACTION=';
  262.  print $cgiurl;
  263.  print 'METHOD=POST>';
  264.  $colindex = 0;
  265.  foreach $control (@controls){
  266.   &print_field("hidden",$control,$controlvalues[$colindex]);  
  267.   $colindex = $colindex + 1;
  268.  }
  269.  &print_field("hidden","Cursor",$cursornext);
  270.  &print_field("Submit","","Next");
  271.  print "</FORM>";
  272. }
  273.  
  274. #################################################################
  275. #             18.Section of script body   (PREVIOUS)            #
  276. #        responsible  for generation and placing in             #
  277. #            output stream the form tags as invisible           # 
  278. #     fields for getting query information from feedback page   #
  279. #################################################################
  280. #if it is needed to place PREVIOUS button
  281. if($cursorprev >= 0){
  282.  print '<FORM ACTION=';
  283.  print $cgiurl;
  284.  print 'METHOD=POST>';
  285.  $colindex = 0;
  286.  foreach $control (@controls){
  287.  &print_field("hidden",$control,$controlvalues[$colindex]);  
  288.  $colindex = $colindex + 1;
  289. }
  290.  &print_field("hidden","Cursor",$cursorprev);
  291.  &print_field("Submit","Submit","Previous");
  292.  print "</FORM>";
  293. }
  294. if($pageURL NE ""){
  295.  print "<BR><A HREF =\"$pageURL\" TARGET=\"_top\">Go Back</A>";
  296. }
  297. print end_html;
  298. ###
  299.  
  300. sub print_field
  301. {
  302.     local($type, $name, $value) = @_;
  303.     print '<INPUT TYPE="';
  304.     print  $type;
  305.     print  '" NAME="';
  306.     print  $name;
  307.     print  '" VALUE="';
  308.     print  $value;
  309.     print  '">';
  310. }
  311. sub print_image_cell
  312. {
  313.  local($name) = @_;
  314.  $name = &get_converted_string($name);
  315.  print "<TD COLSPAN=1><P ALIGN = $align>";
  316.  if(!$link){
  317.  print "<IMG  SRC=\"$name\"  BORDER=0  ALT=\"$name\"></P></TD>";
  318.  }
  319.  else{
  320.   print "<A HREF =\"$name\"><font size=-1 face=arial>$name</font></A></P></TD>";
  321.  }
  322. }
  323. sub print_date_cell
  324. {
  325. local($datetime,$datformat) = @_;
  326. ($date,$time)=split(' ',$datetime);
  327. $date = &get_converted_string($date);
  328. $wholestring = &format_date($date,$datformat);
  329. &print_cell($wholestring);
  330. }
  331. sub print_time_cell
  332. {
  333. local($datetime) = @_;
  334. ($date,$time)=split(' ',$datetime);
  335. &print_cell($time);
  336. }
  337. sub print_mail_cell
  338. {
  339.  local($name) = @_;
  340.  $name = &get_converted_string($name);
  341.  print    "<TD COLSPAN=1><P ALIGN = $align>";
  342.  print "<A HREF =\"mailto:$name\"><font size=-1 face=arial>$name</font></A></P></TD>";
  343. }
  344. sub print_url_cell
  345. {
  346.  local($name) = @_;
  347.  $name = &get_converted_string($name);
  348.  print    "<TD COLSPAN=1><P ALIGN = $align>";
  349.  print "<A HREF =\"$name\"><font size=-1 face=arial>$name</font></A></P></TD>";
  350. }
  351. sub print_cell
  352. {
  353.  local($name) = @_;
  354.  $name = &get_converted_string($name);
  355.  print    "<TD COLSPAN=1><P ALIGN = $align>";
  356.  print "<font size=-1 face=arial>$name</font></P></TD>";        
  357. }
  358. sub print_header_cell
  359. {
  360.  local($name) = @_;
  361.  print    "<TD COLSPAN=1><P ALIGN = $align>";
  362.  print "<B><font size=+1 face=arial>$name</font></B></P></TD>";        
  363. }
  364. sub print_range_line
  365. {
  366.  local($rowtotal,$start,$end) = @_;
  367. if($rowtotal){
  368.  print   "<center>From ";
  369.  print eval($start +1);
  370.  print    " to ";
  371.  print    $end;
  372.  print    "</center>";
  373.  print   "<BR>";
  374. }
  375. }
  376.  
  377. sub get_converted_string
  378. {
  379.   local($name) =@_;
  380.   $name=~ s/&/&/g;
  381.   $name=~ s/</</g;
  382.   $name=~ s/>/>/g;
  383.   $name=~ s/⌐/©/g;
  384.   $name=~ s/«/®/g;
  385.   $name=~ s/"/"/g;
  386.   $name=~ s/\n/<BR>/g;
  387.   $name=~ s/''/'/g;
  388.   return $name;
  389. }
  390. sub get_control_values
  391. {
  392.  local(@controls)=@_;
  393.  local($cindex) = 0;
  394.  foreach $control (@controls){
  395.  if(($t=param($control))){
  396.    if($controlvalues[$cindex] EQ 'NO'){
  397.     $controlvalues[$cindex] = 'YES';
  398.    }
  399.    if($controlvalues[$cindex] EQ ''){
  400.     $t=~ s/'/''/g;
  401.     $t=~ s/\|//g;
  402.     $controlvalues[$cindex] =$t;
  403.    }
  404.  }
  405.  $cindex = $cindex + 1;
  406. }
  407. }
  408. sub format_date
  409. {
  410.  @months =('January','February','March','April','May','June','July','August','September','October','November','December');
  411.  @mon = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
  412.  #dd-MMM-yyyy = 0
  413.  #MM/dd/yyyy = 1
  414.  #dd MMMM,yyyy = 2
  415.  #MMMM dd,yyyy = 3 
  416.  local($date,$dataformat) = @_;
  417.  ($y,$m,$d)=split('-',$date);
  418.  if($dataformat == "0"){
  419.   $m = $m -1;
  420.   return "$d $months[$m],$y"
  421.  }
  422.  if($dataformat == "1"){
  423.   return "$d-$mon[$m]-$y";
  424.  }
  425.  if($dataformat == "2"){
  426.   $m = $m -1;
  427.   return "$m/$d/$y";
  428.  }
  429.  if($dataformat == "3"){
  430.   $m = $m -1;
  431.   return "$months[$m] $d,$y";
  432.  }
  433. }
  434. sub print_bool_cell
  435. {
  436.   local($name) = @_;
  437.   if($name == "0"){
  438.     &print_cell("NO");
  439.   }
  440.   else{
  441.   &print_cell("YES");
  442.   }
  443. }
  444. sub get_total_rows
  445. {
  446. local($i)=0;
  447. while($db->FetchRow()){
  448.  $i = $i+1;
  449. }
  450. local($rowtotal) = $i;
  451. return $i;
  452. }
  453.  
  454. sub print_db_error
  455. {
  456. print "<H1>DATASOURCE OPEN ERROR:</H1>";
  457. print "<P>No such DSN: <u>$dbname</u></P>";
  458. }
  459. sub print_sql_error
  460. {
  461.  print "<H1>QUERY EXECUTION ERROR:</H1>";
  462.  print "<P>QUERY STATEMENT: <U>$stmt</U></P>";
  463.  print "<P>DIAGNOSTICS: <U>";
  464.  print $db->Error();
  465.  print "</U></P>";
  466. }
  467.